Bài 1:

Trong các câu lệnh Pascal sau đây, câu lệnh nào đúng, câu lệnh nào sai. Em hãy khoanh tròn vào chỗ sai.

a) While i=1 do t:=10;

b) while a<=b; do write('b khong nho hon a');

c) while 1=1 do write('Toi lap trinh gioi');

d) i:=1; while i<10 do sum:=sum+1; i:=i+1;

e) i:=1; x:=5;

while i<x do i:= i+1; write(' Gia tri cua i la',i);

Bài 2: Tìm hiểu đoạn chương trình sau và cho biết kết quả của i, j, k sau khi thực hiện đoạn chương trình là bao nhiêu

Đoạn 1:

i:=1; j:=2; k:=3;

while i<6 do i:= i+1; j:= j+1; k:= k+j;

writeln(i,' ',j,' ',k);

Đoạn 2:

i:=1; j:=2; k:=3;

while i<6 do

begin

i:= i+1; j:= j+1; k:= k+j;

writeln(i,' ',j,' ',k);

end;

Câu 36. Cho đoạn chương trình:

i:=1; j:=2; k:=3;

While i<6 do i:=i+1; j:=j+1; k:=k+j;

Writeln (i, j, k);

Sau khi thực hiện đoạn chương trình trên i, j, k có kết quả là

A. 6;3;6

B. 6;6;12

C. 6;7;12

D. 6;7;28

Hãy tìm hiểu đoạn chương trình sau đây.

Sau khi thực hiện đoạn chương trình trên, lệnh Writeln in ra màn hình giá trị của i, j, k lần lượt là bao nhiêu?

          A. 2,3,4                          B. 7,2,3                          C. 7,3,6                D. 6,3,7

Câu 6: Cho biết kết quả in ra màn hình của đoạn chương trình sau

Câu a)

          i := -1;

          j:= 20;

For   k:= 1 to 5 do

          If  k   mod   2  = 0   then    i:= i + 1;

j := j + i;

Writeln(i,‘   ’,j);

Câu b)

n := 127;

m := 0;

While  n < >0  do

Begin

                   m := m * 10 + n  mod  10;

                   n := n  div  10;

end;

writeln(m);